home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DATETIME.SWG
/
0011_DAYSOFWK.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
659b
|
36 lines
{
SEAN PALMER
> This is kinda primative, but it will work, and hopefully if
> someone else has a more elegant way of testing a set, they
> will jump in
}
Uses
Crt;
Type
days = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
Var
d : days;
Const
fullWeek : set of days = [Sun..Sat];
weekend : set of days = [Sun, Sat];
weekDays : set of days = [Mon..Fri];
weekChars : Array[days] of Char = ('S','M','T','W','T','F','S');
begin
Writeln;
For d := Sun to Sat do
begin
if d in weekDays then
TextAttr := 14
else
TextAttr := 7;
Write(weekChars[d]);
end;
Writeln;
TextAttr := 7;
end.